# set the vector
rawdata <- c(55,56,98,100,15,12,33,45,32,67,82,19,25)
#compute the max
max(rawdata)
#compute the min
min(rawdata)
#compute the mean
mean(rawdata)

#plot graph
plot(rawdata, type="b", xlab="Time in Seconds", ylab="Usage of CPU")
#plot max,min,mean lines
abline(h=max(rawdata), v=0)
abline(h=min(rawdata), v=0)
abline(h=mean(rawdata), v=0)

